﻿Imports Entidades
Public Class frmDarDeBaja
    Public obj As New objeto
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()

    End Sub

    Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
        If txtUsuario.Text = "" Then
            MessageBox.Show("Usuario no válido")
            Exit Sub
        End If
        If IsNothing(miAdmin) Then
            MessageBox.Show("No se puede dar de baja ya que todavía no existe cuenta de administrador")
            Exit Sub
        End If
        If txtContraseña.Text = "" Then
            MessageBox.Show("Contraseña no válida")
            Exit Sub
        End If

        If txtUsuario.Text.ToLower <> miAdmin.Usuario.ToLower Then
            MessageBox.Show("El usuario o la contraseña no es válido")
            Exit Sub
        End If
        If txtContraseña.Text <> miAdmin.Contraseña Then
            MessageBox.Show("La contraseña no es válida")
            Exit Sub
        End If

        If IsNothing(obj) Then
            MessageBox.Show("No ha sido posible dar de baja este objeto")
            Exit Sub
        End If
        obj.dadoDeBaja = True
        Dim st As String = miGestion.ModificarObjeto(obj, obj)
        If st <> "" Then
            MessageBox.Show(st)
            Exit Sub
        End If
        MessageBox.Show("Objeto dado de baja")
        Me.Close()


    End Sub

    Private Sub frmDarDeBaja_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class